Sub Ʈ( As String)

    Dim  As Range, c As Integer
    Dim  As Range
    Dim  As String
    Dim  As String

    Set  = Range("C2", Range("C2").End(xlToRight))
    c = WorksheetFunction.Match(, , 0)
            
     = ThisWorkbook.Path & "\"
     = "chart.gif"
            
    Set  = Range("B2").CurrentRegion.Columns(1)
    Set  = Union(, .Offset(, c))

    ActiveSheet.Shapes.AddChart(Width:=300, Height:=200).Select
    
    With ActiveChart
        
        .SetSourceData Source:=
        .ChartType = xlColumnClustered
        .ChartStyle = 208
        .ChartGroups(1).GapWidth = 80
        .SetElement Element:=msoElementDataLabelOutSideEnd
        .Legend.Delete
        
        With .ChartTitle
            .Text = .Areas(2).Cells(1).Value & " Ǹ "
            .Format.TextFrame2.TextRange.Characters.Font.Size = 14
        End With
    
        If Dir( & ) <> "" Then Kill PathName:= & 
    
        .Export Filename:= & , FilterName:="GIF"
        
        .Parent.Delete
            
    End With
    
End Sub